home *** CD-ROM | disk | FTP | other *** search
/ Programmers Heaven 2 / Programmers Heaven 2.iso / files / windows / ocx / ipack.exe / USERINFV.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-12-04  |  4.5 KB  |  148 lines
  1. VERSION 4.00
  2. Begin VB.Form UserInfo 
  3.    Appearance      =   0  'Flat
  4.    BackColor       =   &H00C0C0C0&
  5.    Caption         =   "UserInfo"
  6.    ClientHeight    =   1965
  7.    ClientLeft      =   3675
  8.    ClientTop       =   3330
  9.    ClientWidth     =   3735
  10.    BeginProperty Font 
  11.       name            =   "MS Sans Serif"
  12.       charset         =   0
  13.       weight          =   700
  14.       size            =   8.25
  15.       underline       =   0   'False
  16.       italic          =   0   'False
  17.       strikethrough   =   0   'False
  18.    EndProperty
  19.    ForeColor       =   &H80000008&
  20.    Height          =   2370
  21.    Left            =   3615
  22.    LinkTopic       =   "Form1"
  23.    ScaleHeight     =   1965
  24.    ScaleWidth      =   3735
  25.    Top             =   2985
  26.    Width           =   3855
  27.    Begin VB.CommandButton Ok 
  28.       Appearance      =   0  'Flat
  29.       BackColor       =   &H80000005&
  30.       Caption         =   "Ok"
  31.       Default         =   -1  'True
  32.       BeginProperty Font 
  33.          name            =   "MS Sans Serif"
  34.          charset         =   0
  35.          weight          =   400
  36.          size            =   8.25
  37.          underline       =   0   'False
  38.          italic          =   0   'False
  39.          strikethrough   =   0   'False
  40.       EndProperty
  41.       Height          =   330
  42.       Left            =   1185
  43.       TabIndex        =   4
  44.       Top             =   1215
  45.       Width           =   1275
  46.    End
  47.    Begin VB.TextBox Email 
  48.       Appearance      =   0  'Flat
  49.       BeginProperty Font 
  50.          name            =   "MS Sans Serif"
  51.          charset         =   0
  52.          weight          =   400
  53.          size            =   8.25
  54.          underline       =   0   'False
  55.          italic          =   0   'False
  56.          strikethrough   =   0   'False
  57.       EndProperty
  58.       Height          =   285
  59.       Left            =   1110
  60.       TabIndex        =   3
  61.       Text            =   "zthomas@activexpert.com"
  62.       Top             =   615
  63.       Width           =   2370
  64.    End
  65.    Begin VB.TextBox UserName 
  66.       Appearance      =   0  'Flat
  67.       BeginProperty Font 
  68.          name            =   "MS Sans Serif"
  69.          charset         =   0
  70.          weight          =   400
  71.          size            =   8.25
  72.          underline       =   0   'False
  73.          italic          =   0   'False
  74.          strikethrough   =   0   'False
  75.       EndProperty
  76.       Height          =   285
  77.       Left            =   1110
  78.       TabIndex        =   2
  79.       Text            =   "Zane Thomas"
  80.       Top             =   255
  81.       Width           =   2370
  82.    End
  83.    Begin VB.Label Label1 
  84.       Alignment       =   1  'Right Justify
  85.       Appearance      =   0  'Flat
  86.       BackColor       =   &H00C0C0C0&
  87.       Caption         =   "E-Mail:"
  88.       BeginProperty Font 
  89.          name            =   "MS Sans Serif"
  90.          charset         =   0
  91.          weight          =   400
  92.          size            =   8.25
  93.          underline       =   0   'False
  94.          italic          =   0   'False
  95.          strikethrough   =   0   'False
  96.       EndProperty
  97.       ForeColor       =   &H80000008&
  98.       Height          =   285
  99.       Index           =   1
  100.       Left            =   -255
  101.       TabIndex        =   1
  102.       Top             =   585
  103.       Width           =   1200
  104.    End
  105.    Begin VB.Label Label1 
  106.       Alignment       =   1  'Right Justify
  107.       Appearance      =   0  'Flat
  108.       BackColor       =   &H00C0C0C0&
  109.       Caption         =   "User Name:"
  110.       BeginProperty Font 
  111.          name            =   "MS Sans Serif"
  112.          charset         =   0
  113.          weight          =   400
  114.          size            =   8.25
  115.          underline       =   0   'False
  116.          italic          =   0   'False
  117.          strikethrough   =   0   'False
  118.       EndProperty
  119.       ForeColor       =   &H80000008&
  120.       Height          =   285
  121.       Index           =   0
  122.       Left            =   -240
  123.       TabIndex        =   0
  124.       Top             =   285
  125.       Width           =   1200
  126.    End
  127. Attribute VB_Name = "UserInfo"
  128. Attribute VB_Creatable = False
  129. Attribute VB_Exposed = False
  130. Option Explicit
  131. Private Sub Email_GotFocus()
  132.     email.SelStart = 0
  133.     email.SelLength = Len(email.Text)
  134. End Sub
  135. Private Sub Form_Load()
  136.    email.Text = g_emailaddr
  137.    UserName.Text = g_username
  138.    End Sub
  139. Private Sub Ok_Click()
  140.     g_emailaddr = email.Text
  141.     g_username = UserName.Text
  142.     Unload Me
  143. End Sub
  144. Private Sub UserName_GotFocus()
  145.     UserName.SelStart = 0
  146.     UserName.SelLength = Len(UserName.Text)
  147. End Sub
  148.